home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MacOberon.cpt / MacOberonToolBoxInterface.sit / MacDialogs.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1990-08-30  |  4.6 KB  |  99 lines  |  [.Ob./.Ob*]
  1. Syntax10.Scn.Fnt
  2. MODULE MacDialogs;    (* Macintosh OS Interface Module    Michael Franz, 30.08.90    Complete Interface *)
  3. IMPORT
  4.     TY:= MacTypes, QD:= MacQuickDraw, WM:= MacWindows, EM:= MacEvents;
  5. CONST
  6.     (* Item Types *)
  7.         ctrlItem = 4;
  8.             btnCtrl = 0;    chkCtrl = 1;    radCtrl = 2;    resCtrl = 3;
  9.         statText = 8;
  10.         editText = 16;
  11.         iconItem = 32;
  12.         picItem = 64;
  13.         userItem = 0;
  14.     (* Item Disable Flag *)
  15.         itemDisable = 128;
  16.     (* Standard Buttons *)
  17.         ok = 1;    cancel = 2;
  18.     (* Standard Icon Resource Numbers *)
  19.         stopIcon = 0;    noteIcon = 1;    cautionIcon = 2;
  20.     DialogRecord*= RECORD +
  21.         (WM.WindowRecord)
  22.         items*: TY.Handle;
  23.         textH*: TY.Handle;    (* TEHandle *)
  24.         editField*: INTEGER;
  25.         editOpen: INTEGER;
  26.         aDefItem*: INTEGER
  27.     END;
  28.     DialogPtr*= WM.WindowPtr;
  29.     DialogPeek*= POINTER + TO DialogRecord;
  30.     DialogTemplate*= RECORD +
  31.         (TY.Data)
  32.         boundsRect*: TY.Rect;
  33.         procID*, visible*, filler1, goAwayFlag*, filler2: BOOLEAN;
  34.         refCon*: LONGINT;
  35.         itemsID*: INTEGER;
  36.         title*: TY.Str255
  37.     END;
  38.     DialogTPtr*= POINTER + TO DialogTemplate;
  39.     DialogTAnchor*= RECORD + p*: DialogTPtr END;
  40.     DialogTHndl*= POINTER + TO DialogTAnchor;
  41.     StageList*= RECORD +
  42.         boldItm4*: SHORTINT; boxDrwn4*: BOOLEAN; sound4*: SHORTINT;
  43.         boldItm3*: SHORTINT; boxDrwn3*: BOOLEAN; sound3*: SHORTINT;
  44.         boldItm2*: SHORTINT; boxDrwn2*: BOOLEAN; sound2*: SHORTINT;
  45.         boldItm1*: SHORTINT; boxDrwn1*: BOOLEAN; sound1*: SHORTINT
  46.     END;
  47.     AlertTemplate*= RECORD +
  48.         (TY.Data)
  49.         boundsRect*: TY.Rect;
  50.         itemsID*: INTEGER;
  51.         stages*: StageList
  52.     END;
  53.     AlertTPtr*= POINTER + TO AlertTemplate;
  54.     AlertTAnchor*= RECORD + p*: AlertTPtr END;
  55.     AlertTHndl*= POINTER + TO AlertTAnchor;
  56. PROCEDURE - InitDialogs*(resumeProc: TY.ProcPtr)    0A9H, 07BH;
  57. PROCEDURE - ErrorSound*(soundProc: TY.ProcPtr)    0A9H, 08CH;
  58. PROCEDURE - NewDialog*(wStorage: TY.Ptr; boundsRect: TY.Rect; title: TY.Str255;
  59.                                             visible: BOOLEAN; procID: INTEGER; behind: WM.WindowPtr;
  60.                                             goAwayFlag: BOOLEAN; refCon: LONGINT; itmLstHndl: TY.Handle): DialogPtr    0A9H, 07DH;
  61. PROCEDURE - GetNewDialog*(dialogID: INTEGER; dStorage: TY.Ptr; behind: WM.WindowPtr): DialogPtr    0A9H, 07CH;
  62. PROCEDURE - CloseDialog*(theDialog: DialogPtr)    0A9H, 082H;
  63. PROCEDURE - DisposDialog*(theDialog: DialogPtr)    0A9H, 083H;
  64. PROCEDURE - CouldDialog*(dialogID: INTEGER)    0A9H, 079H;
  65. PROCEDURE - FreeDialog*(dialogID: INTEGER)    0A9H, 07AH;
  66. PROCEDURE - ParamText*(param0, param1, param2, param3: TY.Str255)    0A9H, 08BH;
  67. PROCEDURE - ModalDialog*(filterProc: TY.ProcPtr; VAR itemHit: INTEGER)    0A9H, 091H;
  68. PROCEDURE - IsDialogEvent*(theEvent: EM.EventRecord): BOOLEAN    0A9H, 07FH;
  69. PROCEDURE - DialogSelect*(theEvent: EM.EventRecord; VAR theDialog: DialogPtr; VAR itemHit: INTEGER): BOOLEAN    0A9H, 080H;
  70. PROCEDURE - DrawDialog*(theDialog: DialogPtr)    0A9H, 081H;
  71. PROCEDURE - UpdtDialog*(theDialog: DialogPtr; updateRgn: QD.RgnHandle)    0A9H, 078H;
  72. PROCEDURE - Alert*(alertID: INTEGER; filterProc: TY.Ptr): INTEGER    0A9H, 085H;    (* filterProc : ProcPtr *)
  73. PROCEDURE - StopAlert*(alertID: INTEGER; filterProc: TY.ProcPtr): INTEGER    0A9H, 086H;
  74. PROCEDURE - NoteAlert*(alertID: INTEGER; filterProc: TY.ProcPtr): INTEGER    0A9H, 087H;
  75. PROCEDURE - CautionAlert*(alertID: INTEGER; filterProc: TY.ProcPtr): INTEGER    0A9H, 088H;
  76. PROCEDURE - CouldAlert*(alertID: INTEGER)    0A9H, 089H;
  77. PROCEDURE - FreeAlert*(alertID: INTEGER)    0A9H, 08AH;
  78. PROCEDURE - GetDItem*(theDialog: DialogPtr; itemNo: INTEGER;
  79.                                             VAR itemType: INTEGER; VAR item: TY.Handle; VAR box: TY.Rect)    0A9H, 08DH;
  80. PROCEDURE - SetDItem*(theDialog: DialogPtr; itemNo, itemType: INTEGER; item: TY.Handle; box: TY.Rect)    0A9H, 08EH;
  81. PROCEDURE - HideDItem*(theDialog: DialogPtr; itemNo: INTEGER)    0A8H, 027H;
  82. PROCEDURE - ShowDItem*(theDialog: DialogPtr; itemNo: INTEGER)    0A8H, 028H;
  83. PROCEDURE - SelIText*(theDialog: DialogPtr; itemNo, strtSel, endSel: INTEGER)    0A9H, 07EH;
  84. PROCEDURE - GetIText*(item: TY.Handle; VAR text: TY.Str255)    0A9H, 090H;
  85. PROCEDURE - SetIText*(item: TY.Handle; text: TY.Str255)    0A9H, 08FH;
  86. PROCEDURE - FindDItem*(theDialog: DialogPtr; thePt: TY.Point): INTEGER    0A9H, 084H;
  87. PROCEDURE - NewCDialog*(dStorage: TY.Ptr; boundsRect: TY.Rect; title: TY.Str255; visible: BOOLEAN;
  88.                                                 procID: INTEGER; behind: WM.WindowPtr; goAwayFlag: BOOLEAN;
  89.                                                 refCon: LONGINT; items: TY.Handle): DialogPtr    0AAH, 04BH;
  90. PROCEDURE - GetAlrtStage*(): INTEGER    03EH, 0B8H, 00AH, 09AH;
  91. PROCEDURE - ResetAlrtStage*()    042H, 078H, 00AH, 09AH;
  92. (*    Pascal Only    *)
  93. (*    PROCEDURE DlgCut(theDialog: DialogPtr);    *)
  94. (*    PROCEDURE DlgPaste(theDialog: DialogPtr);    *)
  95. (*    PROCEDURE DlgCopy(theDialog: DialogPtr);    *)
  96. (*    PROCEDURE DlgDelete(theDialog: DialogPtr);    *)
  97. (*    PROCEDURE SetDAFont(fontNum: INTEGER);    *)
  98. END MacDialogs.
  99.